home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / LImacSTACK.8_89 / background_18347.txt < prev    next >
Text File  |  1989-08-04  |  4KB  |  193 lines
  1. -- background: 18347 from stack: in.8_89
  2. -- bmap block id: 18900
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: ResAudit Bg
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   set scroll of fld "ResList" to 0
  9. end closeBackground
  10.  
  11.  
  12. -- part 2 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=382 top=299 right=320 bottom=404
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 4465 / 4465
  18. -- text alignment: 1
  19. -- font id: 3
  20. -- text size: 9
  21. -- style flags: 0
  22. -- line height: 12
  23. -- part name: Index
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   push cd
  27.   visual barn door close to black
  28.   visual barn door open
  29.   go cd "LImacSTACK index"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=403 top=300 right=320 bottom=428
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 25234 / 25234
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Multi-Prev
  46. ----- HyperTalk script -----
  47. on mouseDown
  48.   visual scroll right
  49.   go to prev cd of this bg
  50.   put the ticks into tickHolder
  51.   repeat until (the mouse is up)
  52.     if (the ticks - tickHolder) > 30
  53.     then
  54.     go to prev cd of this bg
  55.     put the ticks into tickHolder
  56.   end if
  57. end repeat
  58. end mouseDown
  59.  
  60.  
  61.  
  62. -- part 4 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=423 top=300 right=320 bottom=449
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 2749 / 2749
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Multi-Next
  74. ----- HyperTalk script -----
  75. on mouseDown
  76.   visual  scroll left
  77.   go to next cd of this bg
  78.   put the ticks into tickHolder
  79.   repeat until (the mouse is up)
  80.     if (the ticks - tickHolder) > 30
  81.     then
  82.     go to next cd of this bg
  83.     put the ticks into tickHolder
  84.   end if
  85. end repeat
  86. end mouseDown
  87.  
  88.  
  89.  
  90. -- part 5 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=445 top=298 right=320 bottom=474
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 6721 / 6721
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Return
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   visual iris close to grey
  105.   visual iris open
  106.   pop cd
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 6 (button)
  112. -- low flags: 00
  113. -- high flags: A003
  114. -- rect: left=25 top=231 right=257 bottom=148
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Resource Lister
  123. ----- HyperTalk script -----
  124.  
  125. --This button uses the XFCN resAudit
  126.  
  127. on mouseUp
  128.   set scroll of fld "ResList" to 0
  129.   put "List Resources of which stack? (Cancel = this stack)"
  130.   get fileName("STAK")
  131.   if it is empty then
  132.     go this cd
  133.     set cursor to 4
  134.     put the short name of this stack into fld "WhichStack"
  135.     put resAudit() into field "ResList"
  136.   else
  137.     go this cd
  138.     set cursor to 4
  139.     put it into resStack
  140.     put the short name of resStack into fld "WhichStack"
  141.     put resAudit(resStack) into field "ResList"
  142.   end if
  143.   hide msg
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 7 (field)
  149. -- low flags: 00
  150. -- high flags: 2004
  151. -- rect: left=181 top=38 right=64 bottom=479
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: WhichStack
  160.  
  161.  
  162. -- part 8 (field)
  163. -- low flags: 00
  164. -- high flags: 2007
  165. -- rect: left=182 top=71 right=289 bottom=477
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: ResList
  174.  
  175.  
  176. -- part 9 (button)
  177. -- low flags: 00
  178. -- high flags: 8003
  179. -- rect: left=46 top=272 right=294 bottom=128
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: New Card
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   doMenu "New Card"
  191. end mouseUp
  192.  
  193.